home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.10 / demo / vdx.i / vd5.i < prev    next >
Text File  |  1995-04-19  |  2KB  |  83 lines
  1.  
  2.  
  3. {  vd5.i  }
  4.  
  5.  
  6. Function VD5 : String;
  7. Const
  8.  
  9.   ObjectPoints : ARRAY[0..32] OF Short =  { Punkt-Tabelle }
  10.   (
  11.    8,
  12.     100, 400, 0, 0,
  13.       0, 300, 0, 0,
  14.       0, 200, 0, 0,
  15.     200, 100, 0, 0,
  16.     200,-100, 0, 0,
  17.       0,-200, 0, 0,
  18.    -200,-100, 0, 0,
  19.    -200, 100, 0, 0
  20.    );
  21.  
  22.   ObjectAreas : ARRAY[0..15] OF Short = { Flächen-Tabelle }
  23.   (
  24.    1,
  25.     8,1,  0*4,1*4,2*4,3*4,4*4,5*4,6*4,7*4,2*4,   0,0,0,0
  26.   );
  27.  
  28.  
  29.   ObjectMove : ARRAY[0..21] OF Short =
  30.   (
  31.    200,  0, 0, 42, 2,0,1,    { Positionierung und Animationspfad }
  32.    300,  0, 0,  0, 1,3,1,
  33.    200,  0, 0,-52, 2,1,4,
  34.                 { Zeit, move-x,-y,-z, rotx,roty,rotz, }
  35.  
  36.    END_1
  37.   );
  38.  
  39.  
  40.   MyColTab : ARRAY[0..32] OF Short = { Farbtabelle }
  41.   (
  42.    0,  0, 0, 0,   { Register, Rot,Grün,Blau }
  43.    1,  8, 8,15,
  44.    2, 13,13, 0,
  45.    3, 12,12, 0,
  46.    4,  3,13, 3,
  47.    5,  2,12, 2,
  48.    6,  8, 8, 8,
  49.    7, 14,14,14,
  50.    -1
  51.   );
  52.  
  53.  
  54.  
  55. BEGIN
  56.  
  57.    MyObject.Point_Data := Adr(ObjectPoints);
  58.    MyObject.Area_Data  := Adr(ObjectAreas);
  59.    MyObject.Move_Table := Adr(ObjectMove);
  60.  
  61.    MyWorld.flags := 1;
  62.    MyWorld.first := Adr(MyObject);
  63.  
  64.  
  65.    { "Animationsscreen" öffnen }
  66.    MyViewStruct := OpenVScreen( Adr(MyVScreen) );
  67.    IF MyViewStruct = NIL THEN
  68.      BEGIN
  69.       VD5 := "Argh - wieder kein Chipmem!";
  70.      END;
  71.  
  72.    Error := SetColors( MyViewStruct, Adr(MyColTab) );   { Farben setzen }
  73.  
  74.    Error := AutoScaleOn( MyVScreen.ViewModes ); { Entzerrung für höhere Auflösung }
  75.  
  76.    Error := DoAnim( Adr(MyWorld) );             { Auf zur Animation!! }
  77.  
  78.    Error := CloseVScreen();                     { Bildschirm schließen }
  79.  
  80.    VD5 := "Schöne Grüße nach Frankfurt !";
  81. END;
  82.  
  83.